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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
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'@ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
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FACILITY: ACC, Account file dumper 


ABSTRACT: 
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This module contains the file manipulation code for 
the accounting utilities. 
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3 i VAX/VMS operating system. unprivileged user mode, 
4 pee ‘ 
: t AUTHOR: Elliott A. Drayton, June 1983 
4 Does Modified by: 
Py | 
4 bocs ! v04-008 EAD0196 Elliott A. Drayton 23-Jul-1984 
2 Bog Made OUTPUT_NAM hold the address of the name block. 
4 8 i V04-007 EAD0187 Elliott A. Drayton 6-Jul-1984 
4 $3 Removed LSTLUN. 
3 51 i v04-006 £AD0161 Elliott A. Drayton 20-Apr-1984 
: 25 Removed related name for INPUT_NAM. 
5 054 1! 04-005 £AD0132 Elliott A. Drayton 9-Apr-1984 | 
; 82? } Added routine WRITE_MSG. 
§39 i v04-004 EAD0030 Elllott A. Drayton 23-Aug-1983 | 


SOc 


+++ 4-4 


oe 


a es ts 


7 


1ErSen-19Bs 3:98:35 VMI Bete? y 
' Removed code to set up FORMS. 
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| mmm www ewww w ewww ewww cee eee e meee cece we ee eee e eee e econ cece neocon eececccceccccce 
1 
INCLUDE FILES 
IGE PDE ETRE ESE IE TOTO ONT TT TE 
REQUIRE ‘SRCS$:ERFDEF REQ’; ' Common ERF definitions 
REQUIRE *SRC$:RECSELDEF.REQ’; i Defines syecom and emb fields. 
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: I } ese ener nranwmannween SEO ean ee Bowe eesneenas Ree OE Beta ner neo nrosnmraentwmoeosanwonanecaan Pies : 
: 2% 1 | TABLE OF CONTENTS i i 
.? 1! } : 
: 6 1 ‘ eee eee ‘ee ers ZO DRe sew we ww eo Beer rer Bh Fe we Bee wre em wee eer = = ems rere wrwmn 2 we ere wnoese ect wmrenwreeonre eee = + D4 
ee 91 «1 EXTERNAL ROUTINE 3 
; A $36 1 FILENAME $ 
cae or 495 1 SPER ouT FILE ! Fortran routine need to do 1/0 from DEVICE MOD ° 
; 80 94 1 PARSE ~puTeut FILES, ; 
; 8 5 1 WRITE-MSG; 
: ¢ 38 1 ' (Se ee te ow en Secs Sere TB ee BeBe eB OS OBE OR EOE OST B OSHS See De weewoee enone enews oe + : 
; 4 1} ' : 
> 85 1 i GENERAL STORAGE DEFINITIONS i ; 
; 8 so 7 ; 
g eee an ee sean = een es eeeoe se ee eee wn mre ns ee eee Be eS Bw Bee SS eBeE Bw OC eB eee ewr Beem eE sr aowrses 7 » 
; «688 303 1 ; 
5; 503 1 exten. : 
; 90 e8e 1 oy RAB_ADDRESS: REF S$BBLOCK (J, : 
3 4 ; 5 : §¥s OuTPUT~ _RAB_ADDRESS: REF S$BBLOCK (J; ° 
; 38 0307 1 OWN ; 
; 9% 508 1 $ 
3 9S 0509 1 DATEXT: INITIAL (*.DAT'), ! "DAT" extension ; 
: 38 Bao ' LISEXT: INITIAL (".LIS"), ! "LIS" extension : 
; 98 O51¢ 1 INPUT_NAM RESULT: ! Resultant input name : 
; 190 Bat? ! VECTOR CNAMSC_MAXRSS BYTE), ! allocate storage ; 
: 101 0515 1 INPUT_NAM_EXPANDE ! Expanded input name : 
$ 10g b2i$ : vECTOR CNANSC _MAXRSS ,BYTE), ! allocate storage : 
> 104 0518 1 RELATED. NAM RESULT ! Resultant related name : 
3 193 344 : NAMSC -MAXRSS ,BYTE], ! allocate storage : 
: 109 §8 1 1 OUTPUT_NAM_RESU ! Resultant output name : 
3 is 32 ; ' VECTOR” NANSC _MAXRSS BYTE], ! allocate storage : 
: 110 §8 4 1 OUTPUT_NAM_EXPANDED ! Expanded output name : 
3 13) 03 5 ! VECTOR CNANSC _MAXRSS ,BYTE), ! allocate storage : 
: 118 5 $ 1 REJECTED_NAM_RESULT ' Resultant rejected name 
; 113 03 : ! VECTOR NAMSC _MAXRSS ,BYTE), ! allocate storage 
: 116 530 1 REJECTED_NAM_EXPANDED ' Expanded rejected name 
; 4 b2e3 ' VECTOR CNAMSC *MAXRSS, BYTE]; ! allocate storage 
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NAM 
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FAB = 
REJECTED FAB: 
BNM = 


ms SNAM ( 


SNAM( 


at! NAM, 
REJECTED NAM_EXPANDED, 


NAMSC : 
REJECTED _NAM 
NAMSC_MARRSSY 


SXABFHC(), 


RESULT, 


(PUT,UPI), 
NPUT_NAM. 
ERRLOG.SYS', 

GET), 

$RAB( 

512, 

ze 

(RAH) 

MSG$_READERR, 

INPUT_FAB). 
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MSG$_OPENOUT, 
(OFP, SQ0), 
OUTPUT_NAM_BLK, 


DATEXT), 


SRAB ( 
MSGS_WRITEERR, 


output_fab), 
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RED, 


Related NAM block 


“file name address after opening 
“(buffer size) 


! Input NAM block 


“file name address after parsing 
“(buffer size) 
“file name address after opening 
(buffer size) 


' Output NAM block 


=95' further defaults from input 
-Tile namé address after parsing 
-(buffe> size) 

“file name address after open 
-(buffer size) 


' Rejected NAM block 


-related file name 

-file name address after parsing 
“(buffer size) 

“file name address after open 
-(buffer size) 


! Input FHC XAB block 
' Input FAB bloc 
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“address of FHC XAB block 
“sequential operations only 
“allow un-interlocked, sharing 
“address of NAM block 
“default name 
“open for input 


! Input RAB block 


-(buffer size) 

-multi-block count 
-multi-buffer count 

-read-ahead processing 

-error mesgoge value 

“address of FAB to be CONNECTed 


' Output FAB block 


server 5a02ege value stad cand 
-outpu e parse, sequential on 
weaeress of mt block 7 . 
-default extension size 

“default extension address 


' Output RAB block 


“specify error message 
“address of FAB bloc 
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; 7 FOP . aa Oe i ~Sutput Tite parse. equential onl 
; = -outpu . u 

; NAM = R SECTED NAM), i Taddress of NAM block“ 4 
; (181 1 REJECTED RAB: $RAB( Rejected RAB block 

a. % ¢ 1 CTX = MSG$_WRITEERR, | spec y error message 

: % 38 1 MBC = 16, ! emulti-block count 

‘4 1 F = 2, | emulti-buffer count 

; «#185 b298 1 ROP = (WBH) ! ewrite Senin Brocces ing 

: 186 0599 FAB = REJECTED_FAB), i saddress of FAB block 

; 188 8491 1 OUTPUT_NAM: LONG INITIAL (OUTPUT_NAM_BLK); 
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UNDECLARE LOG_F ILENAME; 
Global routine LOG_FILENAME (rms) = 
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Functional description 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


the user based on an error code and file name 
that are imbedded in the passed parameter. 


Input parameters 


RMS = Either a FAB or a RAB 
RABSL_FAB = pointer to fab block 
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} FABSL_NAM = pointer to name block 
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(If 
RABSL_CTX = error message to be used (If input was a RAB) 
FABSL_CTX = error message to be used (If input was a FAB) 
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Output parameters 


Expanded error messages to user 
Status is RETURNed 


BEGIN 
MAP 


rms: ref $bblock; 


LOCAL 
fab: ref S$bblock, 
nam: ref $bblock, 


! Define block format 


' Pointer to FAB block 
' Pointer to NAM block 
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rms_sts, 
rms_stv, 
rms_ctx, 
status: $bblock flong). 
desc: vector (2, long); 


' Temporary primary status holder 

! Temporary secondary status holder 
: Temporary user context holder 

' Local ‘‘catch all”’ status return 

! Temporary string descriptor 


'SET UP VALUES -- 

: Fetch the primary and secondary status values and the user 
: context field from the RMS structure. If a RAB was passed 
: then fetch the address of the associated FAB. 
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Crab$b_bid) eql rab$c_bid then ! If this is a rab 
BEGIN 


fab = .rms Crab$l_fab); 
rms_sts = .rms [rab$\_sts]; 
rms_Stv = .rms [rab$i_stv 


rab$l"ctx 
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rms_ctx = rms 
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| 
| 
| 
This routine is called to signal a message to 
| 
| 
| 
| 
| 
| 
| 


om 
7 
FILE 18-5 1984 VAX-11 Bliss 
vose800 Ve=See SBS F3:59:39 Petals tea ete saeSeies.e32:1 2% as 
7 
: else BEGIN | 
fab = .rms; 
? rms_sts = .rms Hfapst- $10): 
rms_stv = .rms [fab$i“stv 
§ rms_ctx = .rms Lfabsi- _ctxd; 
i Py 
é = .fab Cfab$l_nam); ! Fetch address of NAM block 
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If .rms Crab$b_bid) eql rab$c_bid ' If this is a rab 

and .rms_sts eql rms$_eof ! = and error is end of fil 

and .rms_ctx eql ms $"readerr ! © and this was a read cal 
then” return rms$_éof; ! don't bother to report it 
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iFETCH " E NAME -- 

} Find the best euyqrene available. Start with the 
roeul tent name; if not present try for the expanded 
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name; if also Lacan, then settle for the original 
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79 3 If ‘nentnente, rsl) neq 0 then ! IF result string nonblank, 
ei 98 deft: -nam[nam$b_ Ae | ! then display it 

g 3 desc! -namCnam$\_rsa 
be 3 otee, it gnentnenso. esl] neq 0 then ! Or if expanded name nonblank 
ey 39 aecHt -nam(nam$b ~08! i ! then display it 

3 desc! -nam(nam$l_esa 
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se{0} = - fablfab$b_fns); 


Otherwise, use original 
. fabl fab$l—fnal; in FAB 


name string in 
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iNOTIFY we B ed 

: ruct an error message usinn the user supplied context (CTX) 
i field. and the RMS suppl ied primary (STS) and secondary (STV) 
status fields. Signal it to the user. 
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End of file errors are not reported by this routine. 
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3 5 71 signal SeFOE BUR e 1 ,desc, ' Output an error message 
3 71 ms_sts ! wit RMS error code 
; 4 ye “stvs; i oe secondary code 
; 7 
: 19 i return .rms_sts; ' Pass on the status 
: 312 724 1 END; : 
TITLE FILES ; 
" bikt \V042000\ : 
-PSECT SPLIT,NOWRT,NOEXE, PIC,2 ‘ 
53 59 53 2€ 47 GF 4C 2 38 00000 P.AAA: .ASCII \ERRLOG.SYS\ é 
4A & QOOOA P.AAB: .ASCII \.REJ\ é 
33 41 44 se 0000 DATEXT: .ASCII \.DAT\ 3 
3.649 «(4 E 00004 LISEXT: “ASCII \.LIS\ é 
0008 INPUT_NAM_RESULT: 
-BLKB 55 
OO ter -BLKB 
0108 INPUT _NAM EXPANDED 
-BLKB Bi 
00307 -BLKB 
00208 RELATED_ NAR MRE SULT: 


OO 307 “BLK 
0308 OUTPUT _NAM RESULT: 
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OUTPUT_NAM: : 
ADDRESS OUTPUT_NAM_BLK 


-EXTRN LOG FILENAME, rt + natalie 


-PSECT SCODE,NOWRT, PIC,2 


003C¢ 00000 .ENTRY LOG_FILENAME, Save R2,R3,R4,R5 : 0604 
5E 08 C2 0000 SUBL2 #8, SP ; 
50 04 AC 00 0000 MOVL RMS, RO + 0653 
3 D4 00009 CLRL ; 
01 60 91 00008 CMPB Ss (RO), #1 : 
08 12 SO00E BNEQ 1$ F 
j D6 0001 INCL R2 : 
51 Sc =6A0—-0 00012 MOVL 60(RO), FAB ; 
93 11 00016 BRB 2$ : 0656 
51 0 DO 901 1$: MOVL RO, FAB : 0661 
53 08 AO DO 0001B 2$: MOVL  8(RO), RMS_STS ; 066 
55 C AO DO 0001F MOVL  12(ROS, RMS_STV > 066 
54 18 AO 00 000 3 MOVL  24(RO). RMS~CTX > 06 
50 28 Al DO 000 MOVL 4O(FABS, N + 0667 
1A 36 E9 00028 BLBC ~=-_-aR2,_3$ : 0676 
0001827A BF D1 000 CMPL  RMS_STS, #98938 : 0677 
11 12 000 BNEQ 35 : 
00081082 = 8F 54 D1 000 CMPL = RMS_CTX, #528562 : 0678 
08 if 00 BNEQ 3$ : 
50 0001827A BF i 4 MOVL #98938, RO + 0679 
03 a0 3 48 3$ TSTB = 3(NAM) : 0691 
0B 1 4B BEQL 4$ F 
6E 03 AO 9A 00040 MOVZBL 3 (NAM), DESC + 0693 
04 AE [: a 00 1 MOVL 4 (NAM), DESC +4 > 0694 
19 1 6 BRB 6s : 0691 
0B Ad 3 4$ TSTB 1 (NAM) : 0697 
0B 1 B BEQL 5$ 3 
6E 08 AO 9A D MOVZBL 11(NAM), DESC > 0699 
04 AE C oO b9 1 MOVL  12(NAM). DESC+4 : 0700 
0 BRB : : 0697 
6£ 4 Al OA 5$ MOVZBL 52(FAB), DESC : 0% 
04 AE C Al pO 0006C MOVL 44(FAB), DESC+4 > 0705 


=x 
e 


Oe ee ee a On en en Oe Oe Oe Oe ee ee eee ee See SS OS SS SS 


PIPIPIPIPIPIPININININPINNNNNNNNNNNNNNNINNNNMNINININININNIN NINN PNT 


Fe eee wee elo olo lol ole ololololololololoielololololololo) 


ee en Ph em Ch Ft, 


Mrofrorore 


SS 


1: £01944 $3:39:39 «DER AUmBmaSten scene secSeives.esz;1 2% (3 


7 " | yi gee : 
eres - A Re fssigm am 


; Routine Size: 133 bytes, Routine Base: SCODE + 0000 


FILE 1 
voe=000 
UNDECLARE PARSE _OUTPUT_FILES; 

GLOBAL ROUTINE PARSE_OUTPUT_FILES = 


1 
Functional description 


This routine is called to process euseyt file 
If the files are binary (/BINARY or /REJECTED) 
RMS is used, else fortran io is used. 


MEW —OOONOu 


Input parameters 
None 


Da DS Se i i i i te tn ee 


Output parameters 


ony errors encountered are RETURNed inmediately. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
is returned on a normal exit. 
1 


BEGIN 
LOCAL 


-oOo VISUN “SO OBNOUNE WN -OOONOUS 


desc: vector (2, long); ! Temporary string descriptor 


S 


output_desc: $Sbblock Cdsc$k_d_blnJ 
eropet iCeect lass] = dsc$k_class_d), 
rejected_desc: $bblock Cdsc$k_d_blnJ 
4 lass] = dsc$k_class_d); 


S 


CONAUE WI 


! 

'PARSE COMMAND LINE OUTPUTS --- 

! Parse the /OUTPUT, /BINARY and /REJECTED qualifiers. Store any output 
file names obtained in the FAB for future processing. 
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If GET_VALUE ( ‘BINARY’, output_desc ) 


PAA AAAMIUIT 
MEW 0 OO NOU *wh oO 


76 
789 then BEGIN 
770 Output_ fab pfabsb.fns = ,output_desc Fdsc$u_ length); 
r7 Output~fab Cfab$l"fned = .output~desc Cdsc$a-pointerd; 
P rg CALL_FUNCTION (Screate ( ' Call RAS with 
P 0774 fab = output_fab, “address of FAB 


err = log_filename)); -error action routine 


CALL_FUNCTION ($connect ( ' Call RMS with 
rab = output_rab, ' address of RAB 
END err = log_filename)); ! error action routine 
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1B-Sen-1984 25:48:55 vayett Bt 
Begin 
GET_VALUE (‘OUTPUT', output_desc); 


output_fab [fab$b_fns] = .output_desc pdsc$u_ length; 
output_fab [fab$l_fna] = .output_desc dsc$a_pointerd; 


Open_out_file ( output_desc ); 
End ; 


If GETVALUE COREJECTED®, rejected_desc) then! /REJECTED value 


N 
SESESSS 


rejected_fab (fab$b_fns] = .rejected_desc (dsc$w_length); 


rejected fab [fab$l_fnaj = .rejected_ desc dsc$a_pointer); 
CALL_FUNCTION (Screate ( ' CaTl RMS with 

fab = rejected_fab ! address of FAB 

err = log_ filenames); ! error action routine 
CALL_FUNCTION (Sconnect ( ' Call RMS with 

rab = rejected_rab ! address of RAB 

err = Log_ filenames); ! error action routine 


RETURN TRUE; 
END; 


rity | 
- SRCJFILES.B32;1 


-PSECT SPLIT,NOWRT,NOEXE, 


8900 -BLKB 2 

00 59 52 41 4E 49 42 00010 P.AAD: .ASCII \BINARY\<0><0> 
6° 90008 0018 P.AAC: . 
0 go? ’ ith -ADDRESS P.AAD 

00 54 55 50 54 4F Q0020 P.AAF: .ASCII \OUTPUT\<0><0> 
4 4 4 0028 P. . 
099000 * 000 5 -ADDRESS P.AAF 

45 54 43 45 4A 4 0050 P.AAH: .ASCII \REJECTED\ 
4414! 0038 P.AAG: .LO 
0000000" 0005C -ADDRESS P.AAH 


.PSECT SOWNS,NOEXE, 
00707 .BLKB 1 
00708 OUTPUT_DESC: 
BYTE C33 
02 00708 “BYTE 
070¢ “BLKB 4 
00# 00710 REJECTED. DESC: 
BYTE C3 
00715 é 
0714 4 


E 
ONNE CT 


T VALUE, SYSSCREATE 


; Routine Size: 


169 bytes, 


FB OA 


FBO 


000000006 60 


0094 cs 

oosc =6C 
67 
OF 


3 


Routine Base: 


0080 


OWOOVW1O KPUViy PioyF POUVPOOKUL MOP VMOP VP OUUOVMOCOMOOCOoOS 
ORIN FOPIN FWUIWMON VW WWII ONIN FONMIN FWUWONVINDOO MOOOO 


01FC 00000 


& 
C 1 
D 
i 
8 
niet 
9 004 
DD 0005 
9F 0005 
FB 00056 
0059 
batts 
9F OOOSF 
4 44 
90 0006 
DO 00068 
be bode 
He, 
9F 0007 
FB 0007C 
007F 
0 0008 
dO ; 
ies, 
ean 
F 98 
F OF 
E Ag 
0 A 
4 000A8 


SCCDE + 0085 


Heseo-t9ge 3:48:35 
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«PSECT 


VAX-11 Bliss-32 V4.0 


SCODE,NOWRT, PIC,2 


PARSE _OUTPUT_FILES, Save R2,R3,R4,R5,R6,R7,-; 


R 
SYSSCONNECT, R8 
SYSSCREATE, d 


GE 

PALENARE. 86 
UT“FAB Car R2 
SP~ 


e SLISGET_ VALUE 


no: IS T_DESC, OUTPUT _FAB+52 
OUTPUT“DESC+4, OUTPOT_FAB+44 


wry 
# UY SSCREATE 
STATUS. 4$ 


OuTPUT RAB 
#2, SYSSCONNECT 
STATUS, 2$ 


R3 
Wo EL 1SGEr _VALUE 
OUTPUT_DESC> OUTPUT FAB+S2 


oyTPUT “DESC#4, QUTPOT-F fF AB+44 


#1, OPEN_OUT FILE 
REJECTED =peEst 


2 AAG 
ISGET_VALUE 


DISKSVMSMASTER: CERF, SRC 


reg P 
FILES.832;1 


—FAB+44 


as St 

REJECTED_DESC, REJECTED _FAB+52 
REJECTED DESC4+4, REJECT TED 
REJECTED FAB 

#2, SYSSCREATE 

STATUS. 4$ 

REJECTED_RAB 

#2, SYSS$CONNECT 

STATUS, 4$ 

#1 e 0 


————— | 
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: 398 } UNDECLARE WRITE_MSG; | 
; Z 7 i } Global routine WRITE_MSG (msg_desc, output_flag : ref vector) = : 
3 6 121: ; 
: 2 : 18 : This routine writes a message to the output stream. ‘ 
3 4 5 15 i Inputs: : 
3; 6 9 1) msg_desc = Address of descriptor for the message 
; tbe 19 ! } output_flag = Address of flag : 
; 410 1 | Outputs: ; 
; 411 oo : 
: 18 § ji. 
3 ret ; : Begin : 
; 416 § ¢ Local ; 
; 41 Rab_address : REF BLOCKC,BYTE); 3 
419 H 5 Map 
; : oS , Msg_desc : REF BLOCKC,BYTE); : 
: 4 If .Lstlun_rab_address NEQ 0 then : 
; 4 : $8 g Begin = ~ ; 
: 424 0834 Ls jun.reboderesshresst_rot = (og desch dacde. ointer); : 
: 425 0835 Lstlun_rab_addresslrab$w rsz] = .msg_descldsc$w_length); ; 
: 426 p68 Rab_addressS = .istlun_rab_address; : 
: 4 H o8 an 
: 429 839 Begin ; 
3; § +k If ,output_flag EQLU 1 then return true; 3 
: 431 41 Sys$Soutput_rab_address(rab$l_rbf] = nog deschdecte.. ointer); : 
; 4 ; Bees SysSoutput_rab_address(rab$w_rsz] = .msg_descldsc$w_lengthJ; 3 
; 4 084 Rab_addresS = -sys$Soutput_rab_address; 3 
: : : pete End; : 
; 436 568 Rab_address(Crab$l_ctx] = msg$_writeerr; ; 
; 2 ? ot CALC_FUNCTION ($put (rab = .rab_address, err = log_filename)); : 
3 439 84 Return true; ; 
; 440 850 3 : 
0000 000 ENTRY WRITE MSG, Save nothing ; 0810 3 
2} +3 a5 i) MOVL 3 8 33 : 
0 000000006 0 p TCUN_PAB_ADDRESS, RO ; 0832 : 

D D BNEQ 3 
01 08 AC 9 3 Bree TPUT_FLAG, #1 : 0840 
50 000000 06 os D 1 MOVL SYSSOUTPUT_RAB_ADDRESS, RO : 0841 

38 A Al D it 1$: MOVL 4(R1), 4 (my) : 
A 4 BC B 2 MOVW §§ @MSG_BESC, 34(RO) : 0842 


.EXTRN SYSSPUT 
| 
| 
| 
| 


; 4G O82 j ELUDON 


-EXTRN LIBSSIGNAL 


: PSECT SUMMARY 

3 Name Bytes Attributes 

: SOWNS 1816 NOVEC, WRT, RD ,NOEXE,NOSHR, LOL, REL, CON, PIC,ALIGN(2) 
; SGLOBALS 76 NOVEC, WRT. RD .NOEXE.NOSHR, LtL, REL, CON, PIC,ALIGN(2) 
3; «SPLIT 4 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
3 ODE EC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
HY Library Statistics 

; scoceeees Syabols oooeeeee Pages Processing 

3 File Total idaded Percent Mapped Time 

; -$255$DUA28: CSYSLIBILIB.L32;1 18619 84 0 1000 00:01.9 

; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:FILES/OBJ=OBJ$:FILES MSRC$:F ILES/UPDATE=(ENHS$:F ILES) 


; Size: 371 5oge 5 + 2756 data bytes 


3; Run : 
3; Elapsed Time: 1 3 
3 Lines/CPU Min: 

3 emma AG pis 4 +45 

3 pene Used: 164 pages 
; Compilation Complete 
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